1 OUT
1000 ;***************************
1010 ;*     LONG LINES V2.0     *
1020 ;* BY RICK NASH    9/17/86 *
1030 ;*                         *
1040 ;* ENABLES UP TO 4 SCREEN  *
1050 ;* LINES TO BE USED TO     *
1060 ;* ENTER OR EDIT 1 PROG    *
1070 ;* LINE. SYS49152 TO EXEC  *
1080 ;***************************
1090 ;
1100 ;
1110 *=$C000 ;ORG 49152
1120 ;
1130 PTR1 = $FB
1140 PTR2 = $FD
1150 INSERT = $A52A
1160 INLIN = $A560
1170 PRINT1 = $AACA
1180 PATCH1 = $C0C0
1190 PATCH2 = PATCH1+22
1200 ;
1210 ; MOVE BASIC AND KERNAL TO RAM
1220 ;
1230 LDA #$00
1240 TAY
1250 STA PTR1
1260 STA PTR2
1270 LDX #$A0
1280 STX PTR1+1
1290 LDX #$E0
1300 L1 STX PTR2+1
1310 L2 LDA (PTR1),Y
1320 STA (PTR1),Y
1330 LDA (PTR2),Y
1340 STA (PTR2),Y
1350 INY
1360 BNE L2
1370 INC PTR1+1
1380 LDX PTR2+1
1390 INX
1400 BNE L1
1410 ;
1420 ; BANK OUT ROM CHIPS
1430 ;
1440 LDA $01
1450 AND #%11111101
1460 STA $01
1470 ;
1480 ; PREPARE NEW SUBROUTINES
1490 ;
1500 LDX #21
1510 L3 LDA INLIN,X
1520 STA PATCH1,X
1530 DEX
1540 BPL L3
1550 LDX #29
1560 L4 LDA PRINT1,X
1570 STA PATCH2,X
1580 DEX
1590 BPL L4
1600 ;
1610 ; MAKE PATCHES TO OPERATING SYSTEM
1620 ;
1630 LDX #$00
1640 LDY #$00
1650 L5 LDA LOTAB,X
1660 BEQ DONE
1670 STA PTR1
1680 LDA HITAB,X
1690 STA PTR1+1
1700 LDA PCHTAB,X
1710 STA (PTR1),Y
1720 INX
1730 BNE L5
1740 DONE RTS
1750 ;
1760 ; PATCH FOR 'INSERT LINE' ROUTINE
1770 ;
1780 PATCH3 LDA $5F
1790 BNE L6
1800 DEC $60
1810 L6 DEC $5F
1820 LDY $0B
1830 L7 LDA $C0FB,Y
1840 STA ($5F),Y
1850 DEY
1860 BNE L7
1870 JMP INSERT
1880 ;
1890 ; PATCH ADDRESS AND DATA TABLES
1900 ;
1910 LOTAB BYT $CB,$DA,$DE,$84,$BA,$CD,$D0,$E7
1920 BYT $F1,$06,$0B,$F5,$13,$16,$CE,$1F
1930 BYT $20,$21,$84,$85,$FD,$FC,$A2,$B4
1940 BYT $C2,$FF,$8A,$A4,0
1950 HITAB BYT $C0,$C0,$C0,$A5,$A5,$A5,$A5,$A5
1960 BYT $A5,$A6,$A6,$A4,$A5,$A5,$C0,$A5
1970 BYT $A5,$A5,$A4,$A4,$C0,$C0,$E8,$E8
1980 BYT $E6,$E7,$E1,$E1
1990 PCHTAB BYT $C1,$C1,$C0,$C1,$C1,$C0,$C0,$C1
2000 BYT $C0,$C1,$C0,$C1,$C0,$C0,$B0,$4C
2010 BYT <PATCH3,>PATCH3,<PATCH1,>PATCH1,$01,$01,$04,$04
2020 BYT $9F,$9F,$C1,$C1